set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
-- set the scripttext of member num_script to scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "menu_2m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
-- go "viaggio"
-- set mar to marker(0)
-- commenta mar
-- set num_script to the framescript
-- set pgm to the scripttext of member num_script
-- set pgm_new to the scripttext of member "viaggio_1m"
-- set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
--
-- set mar to mar +1
-- commenta mar
-- set num_script to the framescript
-- set pgm to the scripttext of member num_script
-- set pgm_new to the scripttext of member "viaggio_2m"
-- set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
--
-- set mar to mar +1
-- commenta mar
-- set num_script to the framescript
-- set pgm to the scripttext of member num_script
-- set pgm_new to the scripttext of member "viaggio_3m"
-- set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
go "chiuso"
set mar to marker(0)
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "chiuso_1m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "chiuso_2m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "chiuso_3m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
if offset("principio",lab) > 0 then
go "principio"
set mar to marker(0)
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "principio_1m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "principio_2m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "principio_3m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
end if
if offset("articolo",lab) > 0 then
go "articolo"
set mar to marker(0)
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "articolo_1m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "articolo_2m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "articolo_3m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
end if
if offset("viaggio",lab) > 0 then
go "viaggio"
set mar to marker(0)
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "viaggio_1m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "viaggio_2m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "viaggio_3m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
end if
if offset("video",lab) > 0 then
go "video"
set mar to marker(0)
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "video_1m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "video_2m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
set mar to mar +1
commenta mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set pgm_new to the scripttext of member "video_3m"
set the scripttext of member num_script to pgm & return & return & scommenta(pgm_new) & return
end if
end
on crea_init
set lab to the labellist
set stringa to ""
set stringa to ins_frase (stringa,"", "on inizializza")
set stringa to ins_frase (stringa,"", "global canale_video,Canale_pallina,canale_audio,canale_articolo,canale_principio")
set stringa to ins_frase (stringa,"", "global pallina_chiusa,pallina_aperta,audio_nonbarrato,audio_barrato,video_aperto,testo_aperto,principio_aperto")
set stringa to ins_frase (stringa,"", "global video_esterno,audio_intro")
set stringa to ins_frase (stringa,"", "global At_hil_dacast,at_hil_quanti,at_hil_sprite")
set stringa to ins_frase (stringa,"", "global Viff_da,viff_a")
set stringa to ins_frase (stringa,"", "global lista_en_menu,lista_en_viaggio,lista_en_chiuso,lista_en_articolo,lista_en_principio,lista_en_video")
set stringa to ins_frase (stringa,"", "global dove_articolo,dove_principio,dove_video")
set stringa to ins_frase (stringa,"", "global video_bool,principio_bool,albero_bool,testo_bool,audio_bool,correlati_bool,viaggio_bool,inventore_bool")
set stringa to ins_frase (stringa,"", "global lista_curan,lista_curap,lista_curnu")
set stringa to ins_frase (stringa,"", "global Att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite")
set stringa to ins_frase (stringa,"", "global olddove")
set stringa to ins_frase (stringa,"", "set olddove to 0")
-- canale_video Φ lo sprite dove Φ messa l'icona video
-- se presente vale il numero del canale altrimenti 0
set canale_video to 0
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("cur",nome)>0 then
set canale_video to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set canale_video to "& canale_video)
-- put stringa
-- canale_pallina Φ lo sprite dove Φ messa l'icona pallina
-- se presente vale il numero del canale altrimenti 0
set canale_pallina to 0
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("sfe",nome)>0 then
set canale_pallina to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set canale_pallina to "& canale_pallina)
--put stringa
-- canale_audio Φ lo sprite dove Φ messa l'icona audio
-- se presente vale il numero del canale altrimenti 0
set canale_audio to 0
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("aud",nome)>0 then
set canale_audio to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set canale_audio to "& canale_audio)
-- canale_articolo Φ lo sprite dove Φ messa l'icona audio
-- se presente vale il numero del canale altrimenti 0
set canale_audio to 0
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("tes",nome)>0 then
set canale_articolo to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set canale_articolo to "& canale_articolo)
-- canale_principio Φ lo sprite dove Φ messa l'icona audio
-- se presente vale il numero del canale altrimenti 0
set canale_principio to 0
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("pri",nome)>0 then
set canale_principio to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set canale_principio to "& canale_principio)
-- put stringa
-- pallina_chiusa vale il numero del cast dove Φ messa la
-- pallina chiusa
-- se presente vale il numero del cast altrimenti 0
set pallina_chiusa to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("sfe_I",nome)>0 then
set pallina_chiusa to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set pallina_chiusa to "& pallina_chiusa)
-- pallina_aperta vale il numero del cast dove Φ messa la
-- pallina aperta
-- se presente vale il numero del cast altrimenti 0
set pallina_aperta to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("sfe_S",nome)>0 then
set pallina_aperta to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set pallina_aperta to "& pallina_aperta)
-- audio_nonbarrato vale il numero del cast dove Φ messa l'
-- audio chiuso (altoparlante SENZA croce)
-- se presente vale il numero del cast altrimenti 0
set audio_nonbarrato to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("aud_I",nome)>0 then
set audio_nonbarrato to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set audio_nonbarrato to "& audio_nonbarrato)
-- audio_barrato vale il numero del cast dove Φ messa la
-- audio_barrato (Altoparlante CON la croce)
-- se presente vale il numero del cast altrimenti 0
set audio_barrato to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("aud_O",nome)>0 then
set audio_barrato to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set audio_barrato to "& audio_barrato)
-- video_aperto vale il numero del cast dove Φ messa la
-- video_aperto (Altoparlante CON la croce)
-- se presente vale il numero del cast altrimenti 0
set video_aperto to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("spazio",nome)>0 or offset("h_cur",nome)>0 then
set video_aperto to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set video_aperto to "& video_aperto)
-- testo_aperto vale il numero del cast dove Φ messa la
-- se presente vale il numero del cast altrimenti 0
set testo_aperto to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("H_TESTO",nome)>0 then
set testo_aperto to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set testo_aperto to "& testo_aperto)
-- principio_aperto vale il numero del cast dove Φ messa la
-- se presente vale il numero del cast altrimenti 0
set principio_aperto to 0
repeat with x=1 to 10000
if the type of member x = #bitmap then
set nome to the name of cast x
if offset("H_PRI",nome)>0 then
set principio_aperto to x
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set principio_aperto to "& principio_aperto)
-- audio_intro Φ il nome del file dell'audio introduttivo
-- se presente vale il nome del file altrimenti ""
set audio_intro to ""
go "menu"
set num_script to the framescript
set pgm to the scripttext of member num_script
set off1 to offset (" suono ",pgm)
delete char 1 to off1 of pgm
set off2 to offset (QUOTE,pgm)
delete char 1 to off2 of pgm
set off3 to offset (QUOTE,pgm)
if off1>0 and off2>0 and off3>0 then
set audio_intro to char 1 to off3-1 of pgm
end if
set stringa to ins_frase (stringa,"", "set audio_intro to "& QUOTE & audio_intro & QUOTE)
-- video_esterno vale il nome del video storico
-- se presente vale il nome del file .MOV altrimenti ""
set video_esterno to ""
repeat with x=1 to 10000
if the type of member x = #digitalvideo then
set nome to the name of cast x
if char 1 of nome= "V" then
set video_esterno to nome
exit repeat
end if
end if
end repeat
set stringa to ins_frase (stringa,"", "set video_esterno to " & QUOTE & video_esterno & QUOTE)
-- at_hil_dacast = primo parametro della funzione AT_HIL
-- at_hil_quanti = secondo parametro della funzione AT_HIL
-- at_hil_sprite = terzo parametro della funzione AT_HIL
set at_hil_dacast to 0
set at_hil_quanti to 0
set at_hil_sprite to 0
if offset("viaggio",lab)> 0 then
go "viaggio"
set mar to marker(0)
set mar to mar+2
go mar
set num_script to the framescript
set pgm to the scripttext of member num_script
set off1 to offset ("at_hil",pgm)
delete char 1 to off1 of pgm
set off2 to offset (" ",pgm)
delete char 1 to off2 of pgm
set off3 to offset (return,pgm)
if off1>0 and off2>0 and off3>0 then
set str to char 1 to off3-1 of pgm
set off4 to offset(",",pgm)
set num1 to char 1 to off4-1 of pgm
set at_hil_dacast to value(num1)
set stringa to ins_frase (stringa,"", "set at_hil_dacast to " & at_hil_dacast)
delete char 1 to off4 of pgm
set off4 to offset(",",pgm)
set num1 to char 1 to off4-1 of pgm
set at_hil_quanti to value(num1)
set stringa to ins_frase (stringa,"", "set at_hil_quanti to " & at_hil_quanti)
delete char 1 to off4 of pgm
set num1 to pgm
set at_hil_sprite to value(num1)
set stringa to ins_frase (stringa,"", "set at_hil_sprite to " & at_hil_sprite)
end if
end if
-- viff_da = primo parametro della funzione VIFF (nel marker 1 di viaggio)
-- viff_a = secondo parametro della funzione VIFF (nel marker 1 di viaggio)
set viff_da to 0
set viff_a to 0
if offset("viaggio",lab)> 0 then
go "viaggio"
set mar to marker(0)
set mar to mar+1
go mar
repeat with x=19 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
if viff_da = 0 then
set viff_da to x
end if
else
if viff_da>0 and viff_a =0 then
set viff_a to x-1
exit repeat
end if
end if
end repeat
end if
set stringa to ins_frase (stringa,"", "set viff_da to "& viff_da)
set stringa to ins_frase (stringa,"", "set viff_a to "& viff_a)
-- att_hilitec_dacast = primo parametro della funzione ATT_HILITEC
-- att_hilitec_quanti = secondo parametro della funzione ATT_HILITEC
-- att_hilitec_sprite = terzo parametro della funzione ATT_HILITEC
set att_hilitec_dacast to 0
set att_hilitec_quanti to 0
set att_hilitec_sprite to 0
if offset("viaggio",lab)> 0 then
go "viaggio"
set mar to marker(0)
set mar to mar+2
go mar
set num_script to the framescript
set pgm to the scripttext of member num_script
if offset("Att_hilite",pgm)>0 and offset("att_hilitec",pgm)=0 then
-- vecchio caso con ATT_HILITE
set off1 to offset ("att_hilite",pgm)
delete char 1 to off1 of pgm
set off2 to offset (" ",pgm)
delete char 1 to off2 of pgm
set off3 to offset (return,pgm)
if off1>0 and off2>0 and off3>0 then
set str to char 1 to off3-1 of pgm
set off4 to offset(",",pgm)
set num1 to char 1 to off4-1 of pgm
set att_hilitec_dacast to value(num1)
set stringa to ins_frase (stringa,"", "set att_hilitec_dacast to " & att_hilitec_dacast)
delete char 1 to off4 of pgm
set off4 to offset(",",pgm)
set num1 to char 1 to off4-1 of pgm
delete char 1 to off4 of pgm
set off4 to offset(",",pgm)
set num1 to char 1 to off4-1 of pgm
set att_hilitec_sprite to att_hilitec_dacast - value(num1)
set stringa to ins_frase (stringa,"", "set att_hilitec_sprite to " & att_hilitec_sprite)
delete char 1 to off4 of pgm
set off4 to offset(",",pgm)
set num1 to char 1 to off4-1 of pgm
set att_hilitec_quanti to value(num1)
set stringa to ins_frase (stringa,"", "set att_hilitec_quanti to " & att_hilitec_quanti)
END IF
else
if offset("ATT_HILITEC",pgm)> 0 then
-- caso nuovo con ATT_HILITEC
set off1 to offset ("att_hilitec",pgm)
delete char 1 to off1 of pgm
set off2 to offset (" ",pgm)
delete char 1 to off2 of pgm
set off3 to offset (return,pgm)
if off1>0 and off2>0 and off3>0 then
set str to char 1 to off3-1 of pgm
set off4 to offset(",",str)
set num1 to char 1 to off4-1 of str
set att_hilitec_dacast to value(num1)
set stringa to ins_frase (stringa,"", "set att_hilitec_dacast to " & att_hilitec_dacast)
delete char 1 to off4 of str
set off4 to offset(",",str)
set num1 to char 1 to off4-1 of str
set att_hilitec_quanti to value(num1)
set stringa to ins_frase (stringa,"", "set att_hilitec_quanti to " & att_hilitec_quanti)
delete char 1 to off4 of str
set num1 to str
set att_hilitec_sprite to value(num1)
set stringa to ins_frase (stringa,"", "set att_hilitec_sprite to " & att_hilitec_sprite)
end if
end if
end if
end if
-- dove_articolo setta la variabile DOVE in articolo
-- dove_principio setta la variabile DOVE in principio
-- dove_video setta la variabile DOVE in video
set dove_articolo to 0
set dove_principio to 0
set dove_video to 0
set conta to 1
repeat with x=at_hil_dacast to at_hil_dacast+at_hil_quanti
set nome to the name of cast x
if offset("CUR",nome) >0 then set dove_video to conta
if offset("PRI",nome) >0 then set dove_principio to conta
if offset("TES",nome) >0 then set dove_articolo to conta
set conta to conta+1
end repeat
set stringa to ins_frase (stringa,"", "set dove_video to " & dove_video)
set stringa to ins_frase (stringa,"", "set dove_principio to " & dove_principio)
set stringa to ins_frase (stringa,"", "set dove_articolo to " & dove_articolo)
-- video = 1 se Φ presente il video 0 altrimenti
-- principio = 1 se Φ presente il principio 0 altrimenti
-- albero = 1 se Φ presente il albero 0 altrimenti
-- testo = 1 se Φ presente il testo 0 altrimenti
-- audiobool = 1 se Φ presente il audio 0 altrimenti
-- correlati = 1 se Φ presente il correlati 0 altrimenti
-- viaggio = 1 se Φ presente il viaggio 0 altrimenti
set video_bool to 0
set principio_bool to 0
set albero_bool to 0
set testo_bool to 0
set audio_bool to 0
set correlati_bool to 0
set viaggio_bool to 0
set inventore_bool to 0
if video_esterno <>"" and dove_video>0 then set video_bool to 1
if dove_principio>0 then set principio_bool to 1
if dove_articolo >0 then set testo_bool to 1
if offset("viaggio",lab)>0 then set viaggio_bool to 1
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("alb",nome)>0 then
set albero_bool to 1
exit repeat
end if
end if
end repeat
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("art",nome)>0 then
set correlati_bool to 1
exit repeat
end if
end if
end repeat
go "menu"
repeat with x=1 to 48
set y to the castnum of sprite x
if y>0 and y<1000 then
set nome to the name of cast y
if offset("inv",nome)>0 then
set inventore_bool to 1
exit repeat
end if
end if
end repeat
if audio_intro <> "" then set audio_bool to 1
set stringa to ins_frase (stringa,"", "set video_bool to "& video_bool)
set stringa to ins_frase (stringa,"", "set audio_bool to "& audio_bool)
set stringa to ins_frase (stringa,"", "set testo_bool to "& testo_bool)
set stringa to ins_frase (stringa,"", "set principio_bool to "& principio_bool)
set stringa to ins_frase (stringa,"", "set correlati_bool to "& correlati_bool)
set stringa to ins_frase (stringa,"", "set viaggio_bool to "& viaggio_bool)
set stringa to ins_frase (stringa,"", "set inventore_bool to "& inventore_bool)
set stringa to ins_frase (stringa,"", "set albero_bool to "& albero_bool)
-- lista_en_menu lista per attivare la funzione ENTRATA in MENU
-- lista_en_viaggio lista per attivare la funzione ENTRATA in VIAGGIO
-- lista_en_chiuso lista per attivare la funzione ENTRATA in CHIUSO
-- lista_en_articolo lista per attivare la funzione ENTRATA in ARTICOLO
-- lista_en_principio lista per attivare la funzione ENTRATA in PRINCIPIO
-- lista_en_video lista per attivare la funzione ENTRATA in VIDEO
set lista_en_menu to []
set lista_en_viaggio to []
set lista_en_chiuso to []
set lista_en_articolo to []
set lista_en_principio to []
set lista_en_video to []
if offset("menu",lab) then set lista_en_menu to crea_lista ("menu")
if offset("viaggio",lab) then set lista_en_viaggio to crea_lista ("viaggio")
if offset("chiuso",lab) then set lista_en_chiuso to crea_lista ("chiuso")
if offset("articolo",lab) then set lista_en_articolo to crea_lista ("articolo")
if offset("principio",lab) then set lista_en_principio to crea_lista ("principio")
if offset("video",lab) then set lista_en_video to crea_lista ("video")
set stringa to ins_frase (stringa,"", "set lista_en_menu to " & lista_en_menu)
set stringa to ins_frase (stringa,"", "set lista_en_chiuso to " & lista_en_chiuso)
set stringa to ins_frase (stringa,"", "set lista_en_articolo to " & lista_en_articolo)
set stringa to ins_frase (stringa,"", "set lista_en_principio to " & lista_en_principio)
set stringa to ins_frase (stringa,"", "set lista_en_viaggio to " & lista_en_viaggio)
set stringa to ins_frase (stringa,"", "set lista_en_video to " & lista_en_video)
-- lista_curan e lista_curap sono liste di valori di curan e curap
-- presi dal marker 1 di viaggio
set lista_curan to []
set lista_curap to []
set lista_curnu to []
if offset("viaggio",lab)> 0 then
go "viaggio"
set num_script to the framescript
set pgm to the scripttext of member num_script
repeat while pgm<>""
set linea to estrai_linea (pgm)
set pgm to elimina_linea(pgm)
-- if offset ("curan",linea)>0 and offset("--",linea)=0 then
if offset ("curan",linea)>0 then
set off1 to offset("curan",linea)
delete char 1 to off1 of linea
set off1 to offset(" ",linea)
delete char 1 to off1 of linea
set valore to value(linea)
if valore >=1 and valore <=48 then
add lista_curan, valore
end if
end if
-- if offset ("curap",linea)>0 and offset("--",linea)=0 then
if offset ("curap",linea)>0 then
set off1 to offset("curap",linea)
delete char 1 to off1 of linea
set off1 to offset(" ",linea)
delete char 1 to off1 of linea
set valore to value(linea)
if valore >=1 and valore <=48 then
add lista_curap, valore
end if
end if
end repeat
end if
set stringa to ins_frase (stringa,"", "set lista_curan to " & lista_curan)
set stringa to ins_frase (stringa,"", "set lista_curap to " & lista_curap)
set stringa to ins_frase (stringa,"", "set lista_curnu to " & lista_curnu)
set stringa to ins_frase (stringa,"", "end" )
put stringa
repeat with x=1 to 10000
if the type of member x = #script then
set pgm to the scripttext of member x
if offset ("on super_corr",pgm) then
set n_cast to x
exit repeat
end if
end if
end repeat
if n_cast >0 then
set off1 to offset(return & "-- xyz",pgm)
put off1
set pgm to char 1 to off1-1 of pgm
set new_str to pgm & return & return & "-- xyz *** NON TOGLIERE QUESTA RIGA"& return & return & return & stringa & return
set the scripttext of member N_cast to new_str
end if
inizializza
end
-- xyz *** NON TOGLIERE QUESTA RIGA
on inizializza
global canale_video,Canale_pallina,canale_audio,canale_articolo,canale_principio
global pallina_chiusa,pallina_aperta,audio_nonbarrato,audio_barrato,video_aperto,testo_aperto,principio_aperto
global video_esterno,audio_intro
global At_hil_dacast,at_hil_quanti,at_hil_sprite
global Viff_da,viff_a
global lista_en_menu,lista_en_viaggio,lista_en_chiuso,lista_en_articolo,lista_en_principio,lista_en_video
global dove_articolo,dove_principio,dove_video
global video_bool,principio_bool,albero_bool,testo_bool,audio_bool,correlati_bool,viaggio_bool,inventore_bool
global lista_curan,lista_curap,lista_curnu
global Att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite
global olddove
global dove_inventore
set dove_inventore to 4
set olddove to 0
set canale_video to 0
set canale_pallina to 40
set canale_audio to 39
set canale_articolo to 45
set canale_principio to 43
set pallina_chiusa to 123
set pallina_aperta to 121
set audio_nonbarrato to 117
set audio_barrato to 119
set video_aperto to 0
set testo_aperto to 115
set principio_aperto to 113
set audio_intro to "Ai087pe"
set video_esterno to ""
set at_hil_dacast to 105
set at_hil_quanti to 6
set at_hil_sprite to 41
set viff_da to 20
set viff_a to 23
set att_hilitec_dacast to 36
set att_hilitec_quanti to 4
set att_hilitec_sprite to 3
set dove_video to 0
set dove_principio to 3
set dove_articolo to 5
set video_bool to 0
set audio_bool to 1
set testo_bool to 1
set principio_bool to 1
set correlati_bool to 1
set viaggio_bool to 1
set inventore_bool to 1
set albero_bool to 0
set lista_en_menu to [1, 3, 39, 47]
set lista_en_chiuso to [1, 3, 39, 47]
set lista_en_articolo to [1, 5, 15, 16, 18, 19, 39, 47]
